home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TURB_VIS / OGRID100 / GLEQUATE.PAS < prev    next >
Pascal/Delphi Source File  |  1994-12-28  |  5KB  |  142 lines
  1. {*****************************************************************************
  2.  
  3.   OOGrid Library(TM) v1.0 for Borland/Turbo Pascal (Real Mode/TV)
  4.   Copyright (C) 1994 by Arturo J. Monge
  5.   Portions Copyright (C) 1989,1990 Borland International, Inc.
  6.  
  7.   OOGrid Library(TM) Equates Unit:
  8.     This unit defines command and help context constants that are used
  9.     by the TSpreadsheet object and its resources.
  10.  
  11.   Copyright (C) 1994 by Arturo J. Monge
  12.  
  13.   Last Modification : December 29th, 1994
  14.  
  15. {****************************************************************************}
  16.  
  17. {$O+,F+}
  18.  
  19. unit GLEquate;
  20.  
  21. {****************************************************************************}
  22.                                  interface
  23. {****************************************************************************}
  24.  
  25. const
  26.  
  27.   InitStandardContextNumber = 2;
  28.   { Value of the first number for standard help contexts }
  29.  
  30.   InitHelpContextNumber = 100;
  31.   { Value of the first item in the help context constants list }
  32.  
  33.   InitCommandNumber = 200;
  34.   { Value of the first item in the command constants list }
  35.  
  36.   InitObjectTypeID = 20000;
  37.   { Value of the first item in the list of type ID's of the objects that
  38.     will be registered for stream access }
  39.  
  40. const
  41.  
  42. { Standard help contexts }
  43.  
  44.   hcYes    = InitStandardContextNumber;
  45.   hcNo     = hcYes + 1;
  46.   hcOk     = hcNo + 1;
  47.   hcCancel = hcOk + 1;
  48.  
  49. { Help Contexts }
  50.  
  51.   hcBottomMargin       = InitHelpContextNumber;
  52.   hcChangeHeaderInput  = hcBottomMargin + 1;
  53.   hcCondensedCols      = hcChangeHeaderInput + 1;
  54.   hcCurrencyChar       = hcCondensedCols + 1;
  55.   hcDecimalPlaces      = hcCurrencyChar + 1;
  56.   hcFirstKey           = hcDecimalPlaces + 1;
  57.   hcGetWidthInput      = hcFirstKey + 1;
  58.   hcGoToCellInput      = hcGetWidthInput + 1;
  59.   hcInputLine          = hcGoToCellInput + 1;
  60.   hcLeftMargin         = hcInputLine + 1;
  61.   hcNormalCols         = hcLeftMargin + 1;
  62.   hcPageRows           = hcNormalCols + 1;
  63.   hcPleaseWait         = hcPageRows + 1;
  64.   hcRightMargin        = hcPleaseWait +1;
  65.   hcSecondKey          = hcRightMargin + 1;
  66.   hcThirdKey           = hcSecondKey + 1;
  67.   hcTopMargin          = hcThirdKey + 1;
  68.  
  69.   hcCopyColLiteral     = hcTopMargin + 1;
  70.   hcCopyRowLiteral     = hcCopyColLiteral + 1;
  71.  
  72.   hcCurrencyFormat     = hcCopyRowLiteral + 1;
  73.   hcPutCommasInNumbers = hcCurrencyFormat + 1;
  74.  
  75.   hcJustLeft           = hcPutCommasInNumbers + 1;
  76.   hcJustCenter         = hcJustLeft + 1;
  77.   hcJustRight          = hcJustCenter + 1;
  78.  
  79.   hcPrintToPrinter     = hcJustRight + 1;
  80.   hcPrintToFile        = hcPrintToPrinter + 1;
  81.  
  82.   hcPrintNormal        = hcPrintToFile + 1;
  83.   hcPrintCondensed     = hcPrintNormal + 1;
  84.  
  85.   hcPrintRowsNo        = hcPrintCondensed + 1;
  86.   hcPrintRowsLeft      = hcPrintRowsNo + 1;
  87.   hcPrintRowsAlways    = hcPrintRowsLeft + 1;
  88.  
  89.   hcPrintColsNo        = hcPrintRowsAlways + 1;
  90.   hcPrintColsTop       = hcPrintColsNo + 1;
  91.   hcPrintColsAlways    = hcPrintColsTop + 1;
  92.  
  93.   hcLineOutline        = hcPrintColsAlways + 1;
  94.   hcBoldBorders        = hcLineOutline + 1;
  95.  
  96.   hcAscending          = hcBoldBorders + 1;
  97.   hcDescending         = hcAscending + 1;
  98.  
  99. const
  100.  
  101. { Commands }
  102.  
  103.   cmChangeColHeaders     = InitCommandNumber;
  104.   cmChangeColWidth       = cmChangeColHeaders + 1;
  105.   cmDeleteColHeaders     = cmChangeColWidth + 1;
  106.   cmDeleteColumns        = cmDeleteColHeaders + 1;
  107.   cmDeleteRows           = cmDeleteColumns + 1;
  108.   cmEditCell             = cmDeleteRows + 1;
  109.   cmFormatCells          = cmEditCell + 1;
  110.   cmFormatDefault        = cmFormatCells + 1;
  111.   cmGoToCell             = cmFormatDefault + 1;
  112.   cmInsertColumns        = cmGoToCell + 1;
  113.   cmInsertRows           = cmInsertColumns + 1;
  114.   cmNewSheet             = cmInsertRows + 1;
  115.   cmPrintSheet           = cmNewSheet + 1;
  116.   cmRecalc               = cmPrintSheet + 1;
  117.   cmToggleAutoCalc       = cmRecalc + 1;
  118.   cmToggleFormulas       = cmToggleAutoCalc + 1;
  119.   cmToggleHeaders        = cmToggleFormulas + 1;
  120.   cmToggleProtection     = cmToggleHeaders + 1;
  121.   cmSetLocked            = cmToggleProtection + 1;
  122.   cmSetUnlocked          = cmSetLocked + 1;
  123.   cmSortData             = cmSetUnlocked + 1;
  124.  
  125. const
  126.  
  127. { Stream registration Object ID's }
  128.  
  129.   stRValueCell = InitObjectTypeID;
  130.   stRTextCell = stRValueCell + 1;
  131.   stRFormulaCell = stRTextCell + 1;
  132.   stRRepeatCell = stRFormulaCell + 1;
  133.   stRBlock = stRRepeatCell + 1;
  134.   stRLimScrollBar = stRBlock + 1;
  135.   stRSheetInputLine = stRLimScrollBar + 1;
  136.   stRSpreadSheet = stRSheetInputLine + 1;
  137.  
  138. {****************************************************************************}
  139.                                implementation
  140. {****************************************************************************}
  141.  
  142. end. {...TSEquate unit }